home *** CD-ROM | disk | FTP | other *** search
Gui4CLI script | 1980-01-03 | 910 b | 49 lines |
- G4C
-
-
-
- WINBIG 215 73 257 76 "Buttons.gc"
- WinType 11110001
-
-
- BOX 0 0 0 0 OUT RIDGE
-
- xonLoad
- GuiOpen Buttons.gc
-
- xonClose
- GuiQuit Buttons.gc
-
- ; The job of each of the four buttons here is to update
- ; the message displayed in the text gadget below..
- ; Each xButton entry takes five arguments :
- ; Left Top Width Height Title
-
-
- ; ---- This button just provides a little title in the window.
- ; Left 80, Top 10, Width 70, Height 12
- ; It also updates the text in gadid 1..
-
- XBUTTON 59 8 136 15 'Buttons'
- Update Buttons.gc 1 "That one says 'Buttons'"
-
-
- ; ---- Buttons A, B, C
-
- XBUTTON 22 29 50 20 'A'
- Update Buttons.gc 1 'You clicked on button A'
-
- XBUTTON 105 29 50 20 'B'
- Update Buttons.gc 1 ' That time you chose B'
-
- XBUTTON 178 29 50 20 'C'
- Update Buttons.gc 1 " That's the C button"
-
-
- ; ---- This text gadget will be updated when a button is pressed
-
- TEXT 27 54 100 14 '' 24 NOBOX
- gadid 1
-
-
-